home *** CD-ROM | disk | FTP | other *** search
/ SPACE 2 / SPACE - Library 2 - Volume 1.iso / utility / 579 / program / procdure / dissolve.lst < prev    next >
Encoding:
File List  |  1992-01-16  |  280 b   |  17 lines
  1. PROCEDURE dissolve
  2.   LOCAL xa&
  3.   DIM xb&(31999)
  4.   HIDEM
  5.   FOR xa&=0 TO 31999
  6.     xb&(xa&)=xa&
  7.   NEXT xa&
  8.   FOR xa&=0 TO 31999
  9.     SWAP xb&(xa&),xb&(RANDOM(32000))
  10.   NEXT xa&
  11.   FOR xa&=0 TO 31999
  12.     POKE XBIOS(2)+xb&(xa&),0
  13.   NEXT xa&
  14.   ERASE xb&()
  15.   SHOWM
  16. RETURN
  17.